function [coef, varindx] = simplexCoefParse(str)
%                    SIMPLEXCOEFPARSE
%
% Funcion que regresa el coeficiente de una variable que viene en formato
%                               'Cix_i'
% Donde Ci es el coeficiente que queremos obtener, correspondiente a la
% variable i. Regresa tambien el coeficiente de la variable i. NO toma en
% cuenta el signo del coeficiente, de hecho no tiene soporte para algo en
% la forma
%                               '- Cix_i'
%
% Conviene tener en mente que esta es una funcion auxiliar al metodo
% simplexLineParse, y que si se va a utilizar fuera del contexto de ella,
% debe ser cuidadoso. 
%
% usage:        [coef, varindx] = simplexCoefParse(str)
%             donde: 
%                   coef := coeficiente de la variable.
%                varindx := indice de la variable i.
%                    str := linea que viene de la funcion simplexLineParse
%                                   - Marcela Maldonado Figueroa -
%                                     - Pedro Orozco del Pino -
%                                    - Jose Alonso Solis Lemus -
%
ini = findstr(str, '_')+1;
varindx=0;
coef=0;
len = length(str);

% buscamos primero el indice de la variable
if ini == length(str)
    varindx = str2double(str(ini));
else
    for i=ini:len
        num = str2double(str(i));
        varindx = varindx + num*10^(len-i);
    end
end

% ahora hay que buscar el coeficiente
if isempty(str2num(str(1)))
    % el coeficiente es un 1, y str = x_i
    coef = 1;
else
    fin = ini - 3;
    coef = str2double(str(1:fin));

end
